\version "2.18.1"
date = #(strftime "%d %B %Y" (localtime (current-time)))
new_key = e

\header {
  title = "Bread and Roses"
  composer = "James Oppenheim / Mimi & Richard Farina"
  arranger = "arr. E. Peach"
  tagline = \markup {\bold \date}
}

% music pieces
%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \set Score.markFormatter = #format-mark-box-letters
  \transpose \new_key c
  \relative c' {
    \key e \major
    \time 4/4

%    %% verse 1
%    r2 r4 e4^"1st verse: just melody" |
%    gis4. a8 b4 e, |
%    cis'4 b2 b8 b |
%    cis4 b a gis |
%    fis2 r4 fis |
%    gis4. a8 b4 e, |
%    cis'4 b2 e4 |
%    dis4 b cis dis8 cis |
%    b2 r4 e |
%    e4. cis8 b4 gis |
%    fis4 e2 fis8 gis |
%    a4 gis fis e |
%    gis fis2 cis'8 dis |
%    e4. cis8 b4 gis |
%    fis4 e fis gis |
%    a4 gis fis e |
%    fis1 |
%    e1 |

%    %% verse 2
%    r2 r4 e4 |
%    gis4. a8 b4 e, |
%    cis'4 b2 b4 |
%    cis4 b a gis |
%    fis2 r4 fis |
%    gis4. a8 b4 e, |
%    cis'4 b b e |
%    dis4 b cis dis8 cis |
%    b2 r4 e |
%    e4. cis8 b4 gis |
%    fis4 e2 fis8 gis |
%    a4 gis fis e |
%    gis fis2 cis'8 dis |
%    e4. cis8 b4 gis |
%    fis4 e fis gis |
%    a4 gis fis e |
%    fis1 |
%    e1 |

    %% verse 3
    r2 r4 e4 |
    \mark \default
    \repeat volta 2 {
      gis4. a8 b4 e, |
      cis'4 b2 b4 |
      cis4 b a gis |
      fis2 r4 fis |
      gis4. a8 b4 e, |
      cis'4 b2 e4 |
      dis4 b cis dis8 cis |
      b2 r4 e |
      e4. cis8 b4 gis |
      fis4 e2 fis8 gis |
      a4 gis fis e |
      gis( fis2) cis'8 dis |
      e4. cis8 b4 gis |
      fis4 e fis gis |
      a4 gis fis e |
      fis1( |
      e2) r4 e4 |
      \bar "||"

      %% verse 4
      \mark \default
      gis4. a8 b4 e, |
      cis'4 b2 b4 |
      cis4 b a gis |
      fis2 r4 fis |
      gis4. a8 b4 e, |
      cis'4 b b e4 |
      dis4 b cis dis8( cis) |
      b2 r4 e |
      e4. cis8 b4 gis |
      fis4 e2 fis8 gis |
      a4 gis fis e |
      gis fis2 cis'8 dis |
      e4. cis8 b4 gis |
      fis4 e fis gis |
    }
    \alternative {
      {
        a4 gis fis e |
        fis1( |
        e2) r4 e
      }
      {
        a2 gis |
        fis2 e |
        fis1( |
        b1) |
        b1 |
        \bar "|."
      }
    }

  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  \set Score.markFormatter = #format-mark-box-letters
  \transpose \new_key c
  \relative c'' {
    \key e \major
    \time 4/4

%    R1*18

%    %% verse 2
%    r2 r4 e4 |
%    e4. e8 e4 e |
%    e4 e2 e4 |
%    e4 e cis e |
%    dis2 r4 dis |
%    e4. e8 e4 e |
%    e4 e e gis |
%    fis4 fis fis fis |
%    fis2. e4 |
%    e4. e8 e4 e |
%    e4 e2 e4 |
%    e4 e cis cis |
%    b4 b2 e4 |
%    e4. e8 e4 e |
%    e4 e e e |
%    e4 e cis cis |
%    b1 |
%    b1 |

    %% verse 3
    r2 r4 e |
    \mark \default
    \repeat volta 2 {
      e4. e8 e4 e |
      e4 e2 e4 |
      e4 e e e |
      dis2. dis4 |
      e4. e8 e4 e |
      e4 e2 gis4 |
      fis4 fis fis fis |
      fis2. e4 |
      e4. e8 e4 e |
      e4 e2 e4 |
      e4 e cis cis |
      e4( dis2) e8 e |
      e4. e8 e4 e |
      e4 e e e |
      e4 e cis cis |
      b1( |
      b2) r4 e |
      \bar "||"

      %% verse 4
      \mark \default
      e4. fis8 gis4 e |
      a4 e2 e4 |
      e4 gis fis e |
      dis2. dis4 |
      e4. fis8 gis4 e |
      a4 e e gis |
      fis4 gis ais ais |
      fis2 r4 e |
      e4. e8 e4 e |
      e4 e2 cis8 e |
      e4 e cis cis |
      e4 dis2 e8 e |
      cis'4. e,8 dis4 dis |
      dis4 cis e e |
    }
    \alternative {
      {
        e4 e cis cis |
        e1( |
        b2) r4 e |
      }
      {
        e2 e |
        cis2 cis |
        e1( |
        dis1) |
        e1 |
        \bar "|."
      }
    }
  }
}

%part: tenor
tenor = {
  \set Staff.instrumentName = "Tenor "
  \set Score.markFormatter = #format-mark-box-letters
  \transpose \new_key c
  \relative c'' {
    \key e \major
    \time 4/4

%    R1*36

    %% verse 3
    r2 r4 e4 |
    \mark \default
    \repeat volta 2 {
      e4. dis8 cis4 b |
      a4 gis2 gis4 |
      a4 gis cis b |
      b2. b4 |
      e4. dis8 cis4 b |
      a4 gis2 cis8 ais |
      b4 dis fis, ais |
      b2. gis4 |
      gis4. a8 b4 b |
      cis4 b2 b4 |
      cis4 b a gis |
      b2. a8 b |
      cis4. a8 gis4 e |
      fis8 gis a4 b cis |
      fis, gis a cis |
      b1( |
      e,2) r4 e' |
      \bar "||"

      %% verse 4
      \mark \default
      e4. dis8 cis4 b |
      a4 gis2 gis4 |
      a4 e' cis b |
      b2. b4 |
      e4. dis8 cis4 b |
      a4 gis gis gis8 ais |
      b4 dis cis fis |
      dis2 r4 gis, |
      gis4. a8 b4 b |
      cis4 b2 a8 b |
      cis4 b a gis |
      b4 b2 a8 b |
      cis4. a8 b4 b |
      gis4 a b cis |
    }
    \alternative {
      {
        cis4 b a a |
        a1( |
        gis2) r4 e' |
      }
      {
        cis2 b |
        a2 a |
        a1( |
        b1) |
        gis1 |
        \bar "|."
      }
    }

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \set Score.markFormatter = #format-mark-box-letters
  \transpose \new_key c
  \relative c, {
    \key e \major
    \time 4/4

%    R1*53
    R1
    \mark \default
    \repeat volta 2 {
      R1*16
      r2 r4 e |
      \bar "||"

      %% verse 4
      \mark \default
      e4. e8 e4 e |
      e4 e2 e4 |
      e4 e e e |
      b2. b4 |
      e4. e8 e4 e |
      e4 e e cis |
      dis4 gis fis fis |
      b,2 r4 e |
      e4. fis8 gis4 e |
      a4 gis2 fis8 e |
      cis4 e a, cis |
      b4 b2 fis'8 gis |
      a4. fis8 gis4 gis |
      cis,4 cis b a |
    }
    \alternative {
      {
        <fis fis'>4 <gis gis'> a cis |
        b1( |
        <e e,>2) r |
      }
      {
        <fis fis,>2 <gis gis,> |
        a,2 cis |
        b1( |
        b1 ) |
        <e e,>1 |
      }

    }

  }
}

% chords

theChords = \chordmode {

  | R1
  % verse 1-3
  \mark \default
  \repeat volta 2 {
    | c1
    | c1
    | f1
    | g1
    | c1
    | c1
    | d1:7
    | g1:7
    | c1
    | c1
    | f1
    | g1
    | c1
    | a1:m
    | f1
    | g1
    | c1

    % verse 4
    \mark \default
    | c1
    | c1
    | f1
    | g1
    | c1
    | c1
    | d1:7
    | g1:7
    | c1
    | c1
    | f1
    | g1
    | c1
    | a1:m
  }
  \alternative {
    {
      | f1
      | g1
      | c1
    }
    {
      | f1
      | f1
      | g1:7
      | g1
      | c1
    }
  }

}

%words

verseOne = \lyricmode {

  As we come mar -- ching, mar -- ching "in the" beau -- ty of the day
  a mil -- lion dar -- kened kit -- chens, a thou -- sand mill lo -- fts grey
  are touched with all the ra -- diance that a sud -- den sun dis -- closes
  for the peo -- ple hear us cry -- ing Bread and Ro -- ses! Bread and Roses!

  As we come mar -- ching, mar -- ching we're stan -- ding proud and tall;
  the ri -- sing of the wo -- men means the ri -- sing of us all
  no more the drudge and i -- dler, ten that toil where one re -- po -- ses
  but a sha -- ring of life's glo -- ries, Bread and Ro -- ses, Bread and Roses!
  As
  Ro -- ses, Bread and Ro -- ses!
}

verseTwo = \lyricmode {

  As we come mar -- ching, mar -- ching we bat -- tle too for men
  for they are wo -- men's com -- rades "and we" fight as one with _ them
  our lives shall not be swea -- ted from _ birth un -- til life closes;
  hea -- rts starve as well as bo -- dies, give us Bread, but give us Roses.

  As we come mar -- ching, mar -- ching un -- num -- bered wo -- men dead
  go cry -- ing through our sing -- ing their an -- cient cry fo -- r bread
  small art and love and beau -- ty the -- ir drud -- ging spi -- rits kn -- ew
  yes it is our bread we fight for, but we fight for ro -- ses too.

  As

}

%layout

\book {
  \score {
    <<
      \tempo 4 = 120
      %\unfoldRepeats \new Staff \theChords
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff \tenor
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "C-score")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        %\new Staff \theChords
        \new Staff <<
          \new Voice = "melody" { \melody }
          %\new Lyrics \lyricsto "melody" { \verseOne }
          %\new Lyrics \lyricsto "melody" { \verseTwo }
        >>
        \new Staff \harmony
        \new Staff { \transpose c c, { \clef "bass" \tenor } }
        \new Staff { \transpose c c' { \clef "bass" \bass } }
      >>
    }
  }
}

#(define output-suffix "C-SA")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        %\new Staff \theChords
        \new Staff <<
          \new Voice = "melody" { \melody }
          %\new Lyrics \lyricsto "melody" { \verseOne }
          %\new Lyrics \lyricsto "melody" { \verseTwo }
        >>
        \new Staff \harmony
      >>
    }
  }
}

#(define output-suffix "C-TB")
\book {
  \paper { }
  \header { poet = "C / do" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \theChords }
        \new Staff { \transpose c c, { \clef "bass" \tenor } }
        \new Staff { \transpose c c' { \clef "bass" \bass } }
      >>
    }
  }
}

#(define output-suffix "Bflat-score")
\book {
  \paper { }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
        \new Voice = "melody" { \transpose bes c' \melody }
        %\new Lyrics \lyricsto "melody" { \verseOne }
        \new Staff \transpose bes c' \harmony
        \new Staff { \transpose bes c' \tenor }
        \new Staff { \transpose bes c'''' \bass }
      >>
    }
  }
}

#(define output-suffix "Bflat-SA")
\book {
  \paper { }
  \header { poet = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose bes c \theChords }
        \new Voice = "melody" { \transpose bes c' \melody }
        %\new Lyrics \lyricsto "melody" { \verseOne }
        \new Staff \transpose bes c' \harmony
        %\new Staff { \transpose bes c' \tenor }
        %\new Staff { \transpose bes c'''' \bass }
      >>
    }
  }
}

#(define output-suffix "Eflat-score")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
        \new Staff <<
          \new Voice = "melody" { \transpose ees c' \melody }
          %\new Lyrics \lyricsto "melody" { \verseOne }
          %\new Lyrics \lyricsto "melody" { \verseTwo }
          %\new Lyrics \lyricsto "melody" { \verseThree }
        >>
        \new Staff \transpose ees c \harmony
        \new Staff { \transpose ees c  \tenor }
        \new Staff { \transpose ees c''' \bass  }
      >>
    }
  }
}

#(define output-suffix "Eflat-SA")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
        \new Staff <<
          \new Voice = "melody" { \transpose ees c' \melody }
          %\new Lyrics \lyricsto "melody" { \verseOne }
          %\new Lyrics \lyricsto "melody" { \verseTwo }
          %\new Lyrics \lyricsto "melody" { \verseThree }
        >>
        \new Staff \transpose ees c \harmony
      >>
    }
  }
}

#(define output-suffix "Eflat-TB")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %between-system-padding=0
    %page-count = #3
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
      <<
        \new ChordNames { \set chordChanges = ##t \transpose ees c \theChords }
        \new Staff { \transpose ees c  \tenor }
        \new Staff { \transpose ees c''' \bass  }
      >>
    }
  }
}